﻿Public Class ClsUcnListBoxItem
    'represents item of UcnListBox

#Region "Attributes"
#Region "Private attributes"
    Private MsCaption As String = String.Empty 'caption of item in listbox
    Private MoData As Object 'GeTypeOfItems = GeTypeOfItems.kkNone 'data of item
    Private MiImageIndex As String = "" 'index of image in collection
    Private MbCanDrag As Boolean = False 'if item can be dragged (coz sometimes I need to set data but dragging is forbidden)
#End Region
#End Region
#Region "Constructors"
    Sub New(ByVal IsCaption As String, ByVal IoData As Object, ByVal IiImageIndex As Integer, ByVal IbCanDrag As Boolean)
        MsCaption = IsCaption
        MiImageIndex = IiImageIndex
        MoData = IoData
        MbCanDrag = IbCanDrag
    End Sub
#End Region
#Region "Properties"
#Region "Public properties"
    Public ReadOnly Property Caption() As String
        Get
            Return MsCaption
        End Get
    End Property
    Public ReadOnly Property Data() As Object
        Get
            Return MoData
        End Get
    End Property
    Public ReadOnly Property ImageIndex() As Integer
        Get
            Return MiImageIndex
        End Get
    End Property
    Public ReadOnly Property CanDrag() As Boolean
        Get
            Return MbCanDrag
        End Get
    End Property
#End Region
#End Region

End Class